FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFFFFFFFFFFF DDD DDD 
FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 


LLL 

LLLLLLLLELLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**FILE**1D**FDLDATA 
FFFFFFFFFF DDDDDDDD LL DDDDDDDD AAAAAA TITTTTITTT AAAAAA 
FFFFFFFFFF DDDDDDDD LL DDDDDDDD AAAAAA TTTTTTTTIT AAAAAA 
FF DD LL DD DD AA AA TT Aa Aa 
FF DD DD LL DD DD AA AA TT AA aa 
FF OD DD LL DD DD AA AA TT an AA 
FF D DD LL DD DD AA AR TT AA BA 
FFFFFFFF DD DD LL DD DD AA Aa TT oa AA 
FFFFFFFF DD DD LL DD DD AA AA TT AA AR 
FF DD DD LL DD DD AAAAAAAAAA TT AAAAAAAAAA 
FF DD DD LL DD DD AAAAAAAAAA TT AAAAAAAAAA 
FF DD DD LL DD DD AA Ab TT aa Ab . 
FF dD DD LL DD DD AA AA TT Aa AA ° 
FF DDDDDDDD LLLLLLLLLL DDDDDDDD AA AR TT AA AA oe 
FF DDDDDDDD LLLLLLLLLL DDDDDDDD AA AA TT Ab AL . 
LL IIIT] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] S$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
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§ ZSBTTL ‘Data Declarations’ 
MODULE FDLDATA ( IDENT="V04-000', 


i ZRTITLE ‘FOLSPARSE' 
MODE ( “EXTERNAL = GENERAL ), 


oo 
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0 
BEGIN 


SRRRREEEAE RARE AAA AAAAAREAAARERERAATEETETRAARERERAAERERAEREEERERAEEEERERE Ee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


a 
® 
* 
4 ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
is TNELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
i E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. " 
* 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. . 
w 
® 
® 
* 
% 
a 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILiT 
!# SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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v04-000 Data Declarations 1e-8ep-19 4 95:99:98 DISKSVMSMASTER: CFDL.SRCJFDLDATA.B32;1 . (2). 

| 1 {+4 : 
; 4 8 : 1! ° 
; 5 8 : ! } Facility: VAX=11 FOL Utilities ; 
; ? 0 § } Abstract: FDL global data declarations : 
: 9 1 | Environment: : 
3; 66] 040 1! VAX/VMS Operating System ‘ 
: og 061 1! ; 
; 6 BReg 1 !-- : 
| # boc, | : 
> 46 0045 1! Author: Keith B Thompson Creation date: June-1980 : 
a Be a | 
: 4 Boee } Modified by: : 
,. 0050 1! v03-005 KFHO003 Ken Henderson 10 Sep 1983 : 
; 3 0051 1! Support for named UICs : 
; 0052 1! : 
; | «654 $088 , 7 v03-004 KFHOO02 Ken Henderson 22 Nov 1982 : 
Pr 0054 1! Added references to SDL defined offsets : 
; 0055 1! into the FDL$AB_BLOCK vector ; 
; ef Bn2$ 1; Added FOLSGL_STRUMPTR : 
: 59 0058 1 | vO3-003 KFHOO01 Ken Henderson 6 Oct 1982 ; 
; & 0059 1! Removed numtype ; 
3 61 0060 1! Added FDLS$AB_PRE_PARSE_BLOCK and : 
; 6¢ $06] ! FDLSAB_FDL_STRING to support FDL STRINGS : 
: 64 boss - v03-002 KBT0068 Keith B. Thompson 24-Mar-1982 : 
; 6 65 boee : Add item descriptor : 
; 0066 1 | v03-001 KBT0028 Keith Thompson 30-Mar-1982 ; 
: 0067 1! Add upcase descriptor and date_time structure also : 
3 $94 : } consoladate the globals into a block | : 
: 0070 1 ivees | ; 


F 8 
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; 071 1 ; 
i. = Bre 1 ; 
Be... 75 1 PSECT : 
: 6 074 «1 = _FDLSOWN (PIC), 3 
BAB 075 1 GLOBAL = “FDL$GLOBAL (PIC) ; 
; «78 O76 1 PLIT = “FDLSPLIT (SHARE PIC), : 
H 9 8 : CODE = _FOLSCODE (SHARE ,PIC); ; 
; «681 0079 1 LIBRARY ‘SYSSLIBRARY:STARLET'; H 
; B¢ 'h¢' 1 REQUIRE ‘SRCS:FDLUTIL’; : 
: 83 Og6> 1 REQUIRE "LIBS: FDLPARDEF *; ; 
H 8s 080s 1 GLOBAL ; 
; 86 ee8 1 | 3 
$6 (OG 0807 1 : General Variables : 
; «688 0808 1 ! $ 
; 89 0809 1 FDLSAB_AREA_BKZ : REF VECTOR C 256,BYTE J, : 
; 90 0810 1 FDLS$GL_INVBCK_PTR : LONG, | ; 
: 91 0811 1 FDL$GL~STNUMPTR LONG, ; 
a bai§ 1 FDLSGL_MAXLINE LON : 
cs 0813 1 FDL$AB_BLOCK BLK VECTOR C 4,LONG J, : 
H 94 0814 1 FDLS$AB_OUT_STRING R ESC_BLK : 
: 95 0815 1 FDLSAB-FDL~STRING DESC_BLK PRESET ( | ; 
; 96 0816 1 DSC$B_CLASS } = DSCSK_CLASS_D, : 
: 9? 0817 1 DSC$B-DTYPE } = DSCSKIDTYPE-T ), | ; 
; 0818 1 : 
; 0819 1 ' T-Parse Varables ’ 
: 100 0820 1 ; 3 
: 101 08¢1 1 FDLSAB_TPARSE_BLOCK : BLOCK C TPASK_LENGTHO,BYTE J ; 
: 108 OBce INITIAL” (TPASK_COUNTO, TPASM_ABBREV) , : 
: 104 0824 1 FDLSAB_PRE_PARSE_BLOCK : BLOCK C TPASK_LENGTHO,BYTE J | ; 
: 105 0825 1 INITIAL (TPASK_COUNTO, TPASM_ABBREV), : 
; 106 0826 1 3 
; 107 0827 1 ! 3 
3 13 base : FDL$K_BLOCK_END equals the offset to the Last longword in FDLS$AL_BLOCK : 
; 110 0830 1 FDLSAL_BLOCK : VECTOR C FOLSK_BLOCK_END+1,LONG J : 
36111 0831 1 INITIAL (REP FOLSK_BCOCK_END+1 OF (0)); 3 
; 6 O83 1 3 
; 1 0835 1 GLOBAL BIND : 
3 (116 0834 1 FDLSAB_CTRL = FOLSAL_BLOCK C FDLS$L_CTRL J ' Parse control flags : 
: 115 0835 1 FDLS$GL-PCALL = FDLSAL-BLOCK (€ FDLSL-PCALL 3, i EDF Parse routine address | ; 
; 116 +t] 1 DLSGL_PRIMARY = FOLSAL_BLOCK [ FDLSL_PRIMARY J, ' Primary Code : 
> 117 837 1 FDLS$GL—PRINUM = FDLSALBLOCK C FDLSL-PRINUM ) i Primary Number : 
: #118 0838 1 FDLS$AB_PRICTRL = FOLSALBLOCK C FDLS$LIPRICTRL 4, ! Primary Control Flags : 
3 6119 0839 1 FDOLSGL_SECONDARY = FOLSAL_BLOCK [ FDLSL_SECONDARY J, ' Secondary Code : 
3; ie 0840 1 FDLSGL_SECNUM = FDOLSAL_BLOCK ( FOLSL_SECNUM } ' Secondary Number : 
: 1$] 0841 1 FDLSAB_SECCTRL = FOLSAL_BLOCK [ FDLSA_SECCTRL 1. ' Secondary Control Flags : 
2 § Bees 1 FOLSAB_SECCTRLL = FOLSAL_BLOCK ( FOLSA_SECCTRL J, ' Secondary Control Flags as QUADs | : 
3; 1 843 1 FDOLSGL_QUALIFIER = FOLSAL_BLOCK [ FDLSL_QUALIFIER J, : gocongars Qualifier 

; 6124 844 1 FDLSGL_NUMBER = FOLSAL_BLOCK [ FOLSL_NUMBER J, ' Numeric Value 

3 Ye 845 1 FOLSGL_SWITCH = FOLSAL_BLOCK ( FDLSL_SWITCH ' Switch value 

i 126 OB46 1 FDLS$GL—OWNER_UIC = FOLSAL“BLOCK [ FOLSLOWNER uit 1, i Owner UIC 

> 1 84 1 FDLS$GL~SPARET = FOLSAL~BLOCK [ FDLSLSPARET i Sparel 

; 128 8 rk 1 FDOL$GL_PROTECTION = FDOLSAL_BLOCK FDLSL PROTECTION de ' File prozect ion mask 

3: 129 849 1 FOLSGL_FID1 = FOLSAL_BLOCK C FDLSL_FID1 J, ! File ID for positiong (part 1) 
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v04-000 Data Declarations 14-Sep-1984 231: DISKSVMSMASTER:CFDL.SRCJFDLDATA.B32;1 (4) 
: 1¢ 8) } Shared 
D4 : area messages 
144 8g | . 
: 1465 P 0864 1 $SHR_MSGDEF ( FDL,180,GLOBAL, 
> 146 P 0865 1 ( BADLOGIC, ERROR ), 
> 147 P 866 1 ( CLOSEIN, ERROR ) 
: 148 P 0867 1 ( CLOSEOUT, ERROR 5, 
>: 149 P 0868 1 ( CREATED, INFO ) 
: 150 P 0869 1 ( CREATEDSTM, INFO ), 
>: 151 P 0870 1 ( INSVIRMEM,ERROR ); 
; 138 P 0871 1 ( OPENIN, ERROR ) 
: 13 P 087¢ 1 ( OPENOUT,ERROR 5, 
: 154 P 0873 1 ( READERR.ERROR ). 
: 18 . 3 i VALERR ERROR), ) 
: 157 0876 1 
: 158 0877 0 END ELUDOM 


-TITLE FDLDATA VAX=11 FDL Utilities 
-IDENT \V04-000\ 


~-PSECT _FDLSGLOBAL,NOEXE, PIC,2 

00000 FOLS$AB_AREA BK2Z: 

00004 FOLSGL “ite orf PT 

00008 FDLSGL_STNUMPTR: : 
QO00C FOLSGL NARLIRE 

00010 FOLSAB_ “Biot BLK: 

00020 FDOLSAB “ode Saat’, 

00# 00024 FDLSAB “roe STRING: : 


BYTE of 2] ; 
02 0& 00026 "BYTE 14, 2 : 
0028 *BLKB 4 
00000002 00000008 0002Cc FDLSAB_TPARSE BLOCK; 
0034 *BLKB 
00000002 00000008 00050 FDLSAB -PRE SPARSE ,BLOCK:: 
0058 “BLKB 28 
00000000# 00074 FOLSAL_BLOCK: : 
SLONG  0C36) : 
FDLSAB_CTRL== FDLSAL_BLOCK 
FDL$GL~PCALL== FDLSAL~BLOCK+4 
FOLSGL-PRIMARY== — FDL SAL “BLOCK+8 
FDL$GL~PRINUM== FDLS$AL~BLOCK+1 
FDOLSAB-PRICTRL== = FOLS$AL~BLOCK+1 
FOLSGL~SECONDARY== FDL$AL~BLOCK+20 
FDL $GL~SECNUM== FDLSAL BLOCK +24 
FOLSAB-SECCTRL== — FDL SAL “BLOCK+28 


<" 


COMMAND QUALIFIERS 
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VO4-000 Data Declarations 12-88-1382 95:96:98 DISKSVMSMASTER: a hDC SRCSFDLDATA.B32:1° mee (4) Vv 
FOLSAB_SECCTRLL== FDLSAL_BLOCK+ ; 
FOLS$GL_QUALIFIER== FDLSAL_BLOCK+ : 
FOLSGL_NUMBER== FDLSAL_BLOCK+ ; 
FOLSGL"SWITCH== FDLSAL_BLOCK+6 . 
FOLSGL_OWNER_UIC== FDLSAL_BLOCK+64 . 
FDL$GL_SPARET== HO eA BLOCK +88 : 
FOLSGL— PROTECT ION== FDOLSAL_BLOCK+ ; 
FOLSGL_FID1== FOLSAL_BLOCK+76 : 
FOLSGL -f iD eee FDLSAL_BLOCK+80 : 
FOLS$GL_F1D5== FDLSAL_BLOCK+84 : 
FOLSAL_DATE_TIME== FDLSAL_BLOCK+88 : 
FDL$AB_STRING== 48 ree treet : 
FDLSAB_COMMENT== FDLSAL_BLOCK+104 F 
FDLSAB_LINE== Ate ree Ete ; 
FOLSAB_ _UPCASED== FDLSAL_BLOCK+1 : 
FOLSGL_STMNTNUM== FDLSAL_BLOCK+128 ; 
FDLSAB_ITEM== FDLSAL_BLOCK+132 ’ 
FDLS$GL-GCALL== FD sat BLOCK+140 : 
FOL$_BADLOGIC== 11800 6 . 
FOL$_CLOSEIN== 118006 : 
FDOL$_CLOSEOUT== 11800666 : 
FDL$_CREATED== 11 Boge! ; 
FOLS$_CREATEDSTM== 11801539 ; 
FDL$_INSVIRMEM== 11 BA385 ; 
FOLS_ CPENIN= 11800730 : 
FDL$_OPENOUT== 11800738 . 
FDL$_READERR== 11800754 3 
FDL$_VALERR== 11801066 ; 
FOLS$_WRITEERR== 11800786 ; 
3 PSECT SUMMARY : 
; Name Bytes Attributes ‘ 
> —FDOLSGLOBAL 260 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIS <A 1 ante F 
: » eS -« QO NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) : 
; Library Statistics : 
De ae eS et ee sn ay Syabols oooeseo- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
3 ~$255$DUA28:CSYSLIBISTARLET.L32;1 9776 26 0 581 00:00.9 : 


FDLDATA VAX=11 FOL Utilities b-se Sep-1984 VAX Liss-32 V4.0-7 7 
v4~000 Data Declarations Sep =| 984 98; 8: 5 DI SKSVMSMASTE ER:CFOL. SRC FDLDATA.B32;1 tye (4) | 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:FDLDATA/OBJ=OBJ$:FDLDATA MSRC$:FDLDATA/UPDATE=(ENH$:FDLDATA) 
: pize: 0 “88: + e data bytes 


3 561 
; Lexemes/CPU-Min: 483 7 
; ry Used: 105 pages 
; Compilation Complete 
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